home *** CD-ROM | disk | FTP | other *** search
/ The Business Master (3rd Edition) / The Business Master (3rd Edition).iso / files / utilreen / dmplas / dmplas.exe / DLTEST-6.BAS < prev    next >
Encoding:
BASIC Source File  |  1991-11-16  |  1.9 KB  |  33 lines
  1. 10 FILE$="DLTEST-6.PRN"
  2. 20 PRINT CRLF$:PRINT "     Creating ";FILE$;" - Please wait ";
  3. 30 OPEN "O",#1,FILE$
  4. 40 CR$=CHR$(13) :LF$=CHR$(10) :CRLF$=CR$+LF$ :ESC$=CHR$(27) :T$=CHR$(9)
  5. 50 UNDON$=ESC$+"-1" :UNDOFF$=ESC$+"-0"
  6. 60 R$="L...5....1....5....2....5....3....5....4....5....5....5....6....5....7....5"
  7. 70 S$="L...5....1....5....2....5....3....5....4....5....5....5....6....5....7....5....8....5....9....5....*....5....1....5....2....5"
  8. 80 GOTO 300
  9. 90 PRINT#1,"L";:FOR A=1 TO N:PRINT#1,T$;"!";:NEXT A:PRINT#1,CRLF$;:RETURN
  10. 91 PRINT#1,"ONE";T$;"TWO";T$;"THREE";T$;"FOUR";T$;"FIVE";
  11. 92 PRINT#1,T$;"SIX";T$;"SEVEN";T$;"EIGHT";T$;"NINE";T$;"TEN";:RETURN
  12. 93 PRINT#1,T$;"ELEVEN";T$;"TWELVE";T$;"[13]";T$;"[14]";T$;"[15]";: RETURN
  13. 100 GOSUB 90:FOR A=1 TO 3 :GOSUB 91 :PRINT#1,CRLF$;:NEXT A : PRINT#1,CRLF$;: RETURN
  14. 110 GOSUB 90:FOR A=1 TO 3 :GOSUB 91:GOSUB 93:PRINT#1,CRLF$;:NEXT A:PRINT#1,CRLF$;:RETURN
  15. 300 PRINT#1,ESC$;"@";"       DLTEST-6  Horizontal Tab Commands and Backspace";CRLF$
  16. 310 PRINT#1,"Default tabs are set by ESC '@' at every 8 columns  "
  17. 320 PRINT#1,R$ :N=9:GOSUB 100
  18. 330 PRINT#1,CHR$(15);S$:N=14:GOSUB 110
  19. 340 PRINT#1,CHR$(18);"Tabs are set by ESC 'e0' 5  at every 5 columns"
  20. 350 PRINT#1,ESC$;"e0";CHR$(5);R$ :N=12:GOSUB 100
  21. 360 PRINT#1,CHR$(15);S$ :N=21:GOSUB 110
  22. 400 PRINT#1,CHR$(18);"Tabs set by ESC 'D' 5 12 23 36 50 56 0"
  23. 410 PRINT#1,ESC$;"D";CHR$(5);CHR$(12);CHR$(23);CHR$(36);CHR$(50);CHR$(56);CHR$(0);
  24. 420 PRINT#1,R$ :N=9:GOSUB 100
  25. 430 PRINT#1,CHR$(15);S$ :GOSUB 110
  26. 440 PRINT#1,CHR$(18);"BS(08h) can be used to create special symbols by overprinting.
  27. 450 PRINT#1,"For example,  Y";CHR$(8);"=  is created by sending  Y BS =  to the printer,"
  28. 460 PRINT#1,"^";CHR$(8);"|  by sending  ^ BS |  and,  v";CHR$(8);"|  by the string  v BS |"
  29. 900 PRINT#1,CHR$(12);ESC$;"@";
  30. 910 CLOSE #1
  31. 920 SYSTEM
  32. 999 END
  33.